home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / p063b9s.zip / UNIT / GLOBALS.PAS < prev    next >
Pascal/Delphi Source File  |  1997-03-02  |  4KB  |  122 lines
  1. UNIT Globals;
  2. {╔══════════════════════════════════════════════════════════════════════════╗}
  3. {║ Global declarations                           Last changed: 02.03.97  SA ║}
  4. {║                                                                          ║}
  5. {║                         (C) Copyright 1989-97 by                         ║}
  6. {║       Dan Wulff, Jens Sandalgaard, Steen Christensen & S¢ren Ager        ║}
  7. {║                                                                          ║}
  8. {║ This source may not be given to anybody, without the written permission  ║}
  9. {║ from The Portal Team.                                                    ║}
  10. {╚══════════════════════════════════════════════════════════════════════════╝}
  11. {$I POPDEFS.INC}
  12.  
  13. INTERFACE
  14.  
  15. USES Use32, Dos, OpWindow, OpString,
  16.      OpDate, OpRoot, OpField, ApTimer,
  17.      PoPTypes, OproUtil, Com;
  18.  
  19. CONST
  20.   MaxAreas       = 500;
  21.   StatusStr      : STRING[9] = '─────────';
  22.   Topic          : Word = 0;
  23.   CmdLineFlags   : Word = 0;             { See cl* in POPTYPES.PAS }
  24.   DoConfig       : Byte = 0;
  25.   KeyboardLock   : Boolean = False;
  26.   ScreenBlanked  : Boolean = False;
  27.   GotSomeMail    : Boolean = False;
  28.   GotSomeFiles   : Boolean = False;
  29.  
  30.   MainMenu       : PPoPMenu = NIL;
  31.   NodesIdx       : Pointer = NIL;
  32.   ComPort        : PAbsCom = NIL;
  33.  
  34. TYPE
  35.   POutList = ^TOutList;
  36.   TOutList = OBJECT(DoubleListNode)
  37.     Address        : TFidoAddress;
  38.     Size           : LongInt;
  39.     Bits           : Byte;
  40.     Baud           : Word;
  41.     Closed,
  42.     Known,
  43.     NoCMail,
  44.     DontCall,
  45.     Glued          : Boolean;
  46.     FilesToSend    : Word;
  47.     Age            : Integer;
  48.     OpenFrom,
  49.     OpenTo         : Time;
  50.     NC,
  51.     BWZ,
  52.     Cost           : Word;
  53.  
  54.     Constructor Init;
  55.   END;
  56.  
  57.   AreaRec = RECORD
  58.     Tag,
  59.     Title,
  60.     Path,
  61.     FPath : StringPtr;
  62.   END;
  63.   AreaTab    = Array[1..MaxAreas] OF ^AreaRec;
  64.   AreaTabPtr = ^AreaTab;
  65.  
  66.   TMemUsage = (mu_Upper, mu_EMS, mu_XMS);
  67.   TMemUsageSet = SET OF TMemUsage;
  68.  
  69. VAR
  70.   SynchTimeDiff                           : LongInt;
  71.   MemUsage                                : TMemUsageSet;
  72.   RspFile, StartPath                      : PathStr;
  73.   FoundInNl, FoundInNodes, ConfigChanged,
  74.   IsCaller, RequestSent,
  75. {$IFNDEF OS2}
  76.   SaveBreakState,
  77. {$ENDIF}
  78.   FullDuplex, MailToSend, InLogWin        : Boolean;
  79.   IntroWin, Outboundwindow,
  80.   ActivityWindow, StatusWindow,
  81.   CallsIn, CallsOut                       : WindowPtr;
  82.   Cfg                                     : TConfig;
  83.   Data                                    : TDataFile;
  84.   FSent, FReceived                        : Word;
  85.   Call                                    : TFidoAddress;
  86.   OutList                                 : DoubleListPtr;
  87.   FLOutListPtr, CLOutListPtr              : POutList;
  88.   ModemReInit, OutboundReRead, ScreenBlank: EventTimer;
  89.   GlobNodeStat                            : TNodeStat;
  90.   UserHook, olderrptr                     : Pointer;
  91.   TmpPassword                             : S20;
  92.   FwdSysOpName                            : S35;
  93.   NodesRec                                : TNodeInfo;
  94.   RemAka                                  : Array[1..MaxAddresses] Of TFidoAddress;
  95. {$IFNDEF OS2}
  96.   ExecDSwap : FUNCTION(Cmd: STRING; UseSecond: Boolean; EDP: Pointer; SwapFName: PathStr): Integer;
  97. {$ENDIF}
  98. {$IFNDEF PMode}
  99.   I16, R16                                : Procedure;
  100. {$ENDIF}
  101.   CurrentLogView, EndLogView              : Array[1..MaxActivityLines] of LongInt;
  102.   CurrentEvent                            : TEvent;
  103.   StatRec                                 : PPortalStat;
  104.  
  105.   MaxReqFiles : Word;
  106.   MaxReqTime  : Time;
  107.   MaxReqBytes : LongInt;
  108.   DRI         : TDailyReqInfo;
  109.  
  110. IMPLEMENTATION
  111.  
  112.   CONSTRUCTOR TOutList.Init;
  113.   BEGIN
  114.     IF Not DoubleListNode.Init THEN Fail;
  115.     Address.Zone:=0; Address.Net:=0; Address.Node:=0; Address.Point:=0;
  116.     Size:=0; Bits:=0; Baud:=0;
  117.     Known:=False; Closed:=False; NoCMail:=True; DontCall:=False; Glued:=False;
  118.     FilesToSend:=0; Age:=0; Cost:=0;
  119.   END;
  120.  
  121. END.
  122.